perm filename MSGX[NEW,LCS] blob
sn#717324 filedate 1983-06-23 generic text, type T, neo UTF8
RS STAFB.CHO
IN 4 VLN
11
TR/K1S/M(G4/PA4/D4/E/ F/A/G/F/E/D/C/
B/D/G/F///G/ A/F/D);
QX4/EX6/Q/ E//Q/EX6/2.;
;
6 8/9 10/12 13/16 18/19 20;
6 8/13 14/17 18/19 20/21 22;
IN 0 ORGAN
11
BA/K1S/PE3/F/R/G/F/E/M2/ D/B/C/B/A/M2/
G/F/E/A/D2/D3//E/M2/ F/D/G/G2/D3///CS/M2;
Q//EX4/Q//E//Q/EX16;
;
3 5/8 9/ 11 14/16 18/19 1/21 1/24 26;
25 26;
IN 2 BASS
11
BA/K1S/PE3/F/R/G/F/E/M3/ D/B/C/B/A/M3/
G/F/E/A/D2/D3//E/M3/ F/D/G/G2/D3///CS/M3;
Q//EX4/Q//E//Q/EX16;
;
3 5/8 9/ 11 14/16 18/19 1/21 1/24 26;
25 26;
IN 1 ORGAN
11
TR/K1S/RWX4;
1X4;
G;
IN 3 VLA
11
AL/K1S/PF4/E/D/C/B/CS/
D/R/D3/E/F/ G/A/B/CS/D/CN/B/ R/A//G/F/B/A;
EX4/Q//2/EX10/Q/EX6/Q;
;
2 4/8 10/11 14/15 16/18 20/21 22;
-1 1/2 4/8 10/12 14/19 20;
SA JSBDD
RS STAFA
IN 1 BSN
11
BA/K1S/PF4/E/D/C/B/CS/M3/
D/R/D3/E/F/M3/ G/A/B/CS/D/CN/B/M3/ R/A//G/F/B/A/M3;
EX4/Q//2/EX10/Q/EX6/Q;
;
2 4/8 10/11 14/15 16/18 20/21 22;
-1 1/2 4/8 10/12 14/19 20;
IN 2 EH
11
TR/K2S/@M;
QX4/EX6/Q/ E//Q/EX6/2.;
;
6 8/9 10/12 13/16 18/19 20;
6 8/13 14/17 18/19 20/21 22;
IN 0 VOICE
11
TR/K1S/RW/M/RW/M/R/D5/M/C/B/A/G/F/M;
1//2//Q//E//Q;
;
2B;
4 5;
IN 3 OB
11
TR/K1S/RW//R/D5/C/B/A/G/F;
1//2//Q//E//Q;
;
2B;
4 5;
SA JSBDC
RS STAFB.CHO
IN 4
11
TR/K1S/L(R//PA3/B/CS/ D/FN/E/FS/GS/
A/FN/E/D/CS/DS/E/D/ E/F/G/A/B/A/B/A);
2/EX4/Q//E//Q/EX4/S//Q/E/E./S/E./S/E/Q/S/;
;
4B;
1 3/6 7/10 12/13 14/15 16/17 18/19 20/23 24;
IN 0
11
BA/K1S/RW/M2/R//PD3/CN/B/M2/A/GS/A/GN/F/M2/
E/A/G/C/B/CS/DS/B/M2;
1/2/EX4/Q//E//Q/EX8;
;
4B;
1 3;
IN 2
11
BA/K1S/RW/M3/R//PD3/CN/B/M3/A/GS/A/GN/F/M3/
E/A/G/C/B/CS/DS/B/M3;
1/2/EX4/Q//E//Q/EX8;
;
4B;
1 3;
IN 1
11
TR/K1S/RWX4;
1X4;
G;
IN 3
11
AL/K1S/PA3/F/G/F/E/ D/CN4/B/A/GS/A/B/
C/B/E3/F/G/A/B/ C/E/DS/E/F;
Q//E//Q/EX6/Q///S//E///Q//E//Q;
;
3 4/7 9/10 11/15 17/18 19/22 23;
3 4/7 9/10 11/15 16/18 19/22 23;
SA JSBDB.CHO
RS STAFA
IN 2 ****** ENGLISH HORN
11
TR/K2S/@L4;
2/EX4/Q//E//Q/EX4/S//Q/E/E./S/E./S/E/Q/S/;
;
4B;
1 3/6 7/10 12/13 14/15 16/17 18/19 20/23 24;
IN 0
11
TR/K1S/A4/R/M/RW/M/X1 3;
2//1//;
;
;
-1 1;
IN 3
11
TR/K1S/A4/R/RW//;
2//1//;
;
;
-1 1;
IN 1
11
BA/K1S/PA3/F/G/F/E/M3/ D/CN4/B/A/GS/A/B/M3/
C/B/E3/F/G/A/B/M3/ C/E/DS/E/F/M3;
Q//E//Q/EX6/Q///S//E///Q//E//Q;
;
3 4/7 9/10 11/15 17/18 19/22 23;
3 4/7 9/10 11/15 16/18 19/22 23;
SA JSBDA
IF(I1.EQ.LEL)GO TO 680
C L = LEFT, LP=LIGHT PEN, LI=LINE UP VERTICALLY
IF(I1.EQ.LJJ)GO TO 1770
C J = JUSTIFY JT=JUSTIFY TEXT JV=JUSTIFY VERTICALLY
680 IF(I1.EQ.LEE)GO TO 690
C ABOVE FOR 'ED' (WITH LIGHT PEN)
IF(I2.NE.LII)GO TO 685
C *** LI = LINE UP ALL STAVES BASED ON STAFF 0
IF(X22.NE.0)GO TO 130
CAN'T DO IT IF IN EDIT MODE
CALL MSSET(1)
C THE 1 IN MSSET BECOMES 1*8-1=7 (FOR STAVES 0-7)
CC CALL MSSET(R2,R4,R5,1,ITEM,NO,P,RHYX)
GO TO 1320
685 IF(X22.EQ.0)GO TO 130
!
1770 IF(I2.EQ.IBLA)GO TO 1780
IF(I2.EQ.LDD)GO TO 1060
C NOW 'CD', WHEN NOT IN EDIT MODE = CENTER ALL DASHES ON A LINE. (USES GRED)
RD=43
C NEXT FOR ME=MENO=81 MOLTO=90 CRESC.=70 MP=43 MF=50, ALSO 'MACRO'
IF(I2.EQ.LAA)GO TO 2400
IF(I2.EQ.LFF)RD=50
IF(I2.EQ.LOH)RD=90
IF(I2.EQ.LEE)RD=81
IF(I2.EQ.LRR)RD=70
IF(I2.EQ.LTT)GO TO 1780
CCRMA IF(I2.NE.LTT)GO TO 880
C JT=JUSTIFY TEXT (ONLY 1 STAFF AT A TIME)
IF(I2.NE.LVV)GO TO 880
IF(X22.NE.0)GO TO 260
C JV=JUSTIFY STAVES VERTICALLY (IN MSSUB.F4)
1775 CALL JUSTAV
GO TO 1320
1780 CALL MOVER
8 0 0 0 .7
8 1 0 0 .7
8 2 0 0 .7
8 3 0 0 .7
8 4 0 0 .7
4 0 0 7
I
4 2 7 5
C
I
2 2 4 3 7 4
C
ST 2 8
9 1
BASS
X
ST 3 8
9 1
VLA
X
ST 4 8
9 1
VLN
X
SA STAFB.CHO
RS
8 0 0 0 .7
8 1 0 0 .7
8 2 0 0 .7
8 3 0 0 .7
4 0 0 4
I
4 3 2 1 7 4
C
ST 0 8
9 1
SOP
X
ST 1 8
9 1
BSN
X
ST 2 8
9 1
ENGHN
X
ST 3 8
9 1
OB
X
SA STAFA.CHO
IN 0
1
TR/K1S/RW/M/REP 1 3/G4//A/M;
1///2/Q/;
G;
IN 1
1
BA/K1S/A3/PB/C/B/A/G/M3/ G/F/G/GS/
A/GN/M3/A/G/F/G//F/E/F/M3/
R/G//A/B/CS/DS/M3;
E//Q/E//Q/EX4/Q./E//S//Q/E/S//Q/
EX4/Q/E/;
;
1 2/4 5/7 8/9 10/ 13 15/17 19/
21 23/25 26;
-1 1/4 5/6 7/8 10/14 15/16 17/
18 19/22 23;
IN 2
1
TR/K2S/E5/D/E/F/A//GS/ F/GS/F/E/F/G/
A/GN/F/G/F/E/ F///G/A/B/C;
Q/EX6/ Q/EX4/Q/ Q./S//Q./S//
EX4/Q/E/;
;
2 3/5 7/ 9 10/11 12/ 15 16/18 19/
21 23/25 26;
;
IN 3
1
TR/K1S/RW///G4//A/C/B;
1///2/Q/E/S/;
P 1;
2B;
4 5;
SA JSBBA.CHO
1 7 3 1
2 10 4 0
3 15 5 0
4 20 6 0
5 27 9 0
6 35 14 0
7 40 19 0
8 45 25 0
9 51 34 0
10 56 43 0
11 59 50 0
12 62 56 0
13 65 62 0
14 70 71 0
15 75 77 0
16 77 79 0
17 85 85 0
18 91 88 0
19 97 90 0
20 102 90 0
21 110 91 0
22 120 91 0
23 126 90 0
24 136 91 0
25 140 91 0
26 146 92 0
27 160 95 0
28 167 98 0
29 171 98 0
30 177 96 0
31 180 96 0
32 186 98 0
33 190 99 0
34 194 100 0
35 197 100 0
36 203 101 0
37 210 101 0
38 213 100 0
39 216 98 0
40 217 100 0
41 219 99 0
42 220 98 0
43 220 97 0
44 216 98 0
45 220 97 1
46 222 96 0
47 233 89 0
48 233 87 0
49 238 73 0
50 239 70 0
51 236 70 0
52 236 71 0
53 236 70 1
54 235 67 0
55 236 68 0
56 237 68 0
57 239 70 0
58 235 67 1
59 233 67 0
60 232 67 0
61 229 67 0
62 228 71 0
63 227 73 0
64 225 72 0
65 225 70 0
66 227 69 0
67 229 67 0
68 231 67 0
69 229 63 0
70 226 63 0
71 224 66 0
72 208 75 0
73 205 74 0
74 200 68 0
75 200 65 0
76 200 60 0
77 201 43 0
78 206 29 0
79 209 24 0
80 216 13 0
81 219 13 0
82 221 14 0
83 224 12 0
84 225 10 0
85 224 8 0
86 212 8 0
87 209 9 0
88 202 16 0
89 199 18 0
90 192 25 0
91 189 28 0
92 184 36 0
93 181 40 0
94 178 40 0
95 174 40 0
96 168 41 0
97 164 42 0
98 160 42 0
99 155 32 0
100 155 25 0
101 153 20 0
102 156 11 0
103 158 10 0
104 168 10 0
105 170 12 0
106 169 15 0
107 167 16 0
108 164 15 0
109 167 24 0
110 170 31 0
111 178 40 0
112 160 42 1
113 158 42 0
114 159 43 0
115 141 45 0
116 135 47 0
117 130 49 0
118 123 52 0
119 119 53 0
120 119 50 0
121 118 46 0
122 116 43 0
123 114 39 0
124 111 34 0
125 108 30 0
126 107 28 0
127 108 26 0
128 110 22 0
129 116 15 0
130 119 16 0
131 121 16 0
132 123 13 0
133 123 11 0
134 121 10 0
135 114 10 0
136 112 11 0
137 103 16 0
138 99 19 0
139 97 21 0
140 96 23 0
141 97 25 0
142 98 28 0
143 98 30 0
144 97 34 0
145 96 37 0
146 96 39 0
147 99 42 0
148 106 48 0
149 109 50 0
150 112 52 0
151 115 53 0
152 119 53 0
153 96 39 1
154 93 37 0
155 89 34 0
156 86 33 0
157 82 32 0
158 78 32 0
159 74 31 0
160 73 23 0
161 75 15 0
162 76 13 0
163 78 14 0
164 81 14 0
165 84 12 0
166 83 9 0
167 80 8 0
168 72 8 0
169 67 10 0
170 64 13 0
171 64 17 0
172 60 30 0
173 60 34 0
174 61 36 0
175 62 37 0
176 65 38 0
177 69 41 0
178 74 47 0
179 74 50 0
180 75 54 0
181 76 58 0
182 76 60 0
183 78 70 0
184 80 76 0
185 78 70 1
186 74 65 0
187 70 60 0